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P  0  R  I!  W  0  R  n 

This  report  is  the  second  of  a  scries  describing  the  use  of  small 
computers  to  perform  the  acquisition  and  processing  of  gun 
ballistic  range  data.  The  first  report  described  the  use  of  a 
Hewlett-Packard  982 SA  desktop  Computer  in  this  role.  The  software 
described  in  this  report  is  unique  to  the  Hewlett-Packard  S5 
computer,  although  similar  capabilities  arc  displayed  by  machines 
from  other  manufacturers. 

The  use  of  manufacturers'  or  trade  names  in  this  report  docs  not 
constitute  endorsement  of  any  commercial  product. 

No  warranty,  expressed  or  implied,  is  made  by  Weapons  Systems 
Research  Laboratory  as  to  the  accuracy  and  functioning  of  programs 
and  no  responsibility  is  assumed  by  Weapons  Systems  Research 
Laboratory  in  connection  herewith.  furthermore.  Weapons  Systems 
Research  Laboratory  will  not  accept  any  responsibility  to 
undertake  a  software  supporting  role. 
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1.  INTRODUCTION 

A  key  element  ol  the  operation  of  experimental  gun  ballistic  ranges  is  the 
gathering  of  information  relating  to  the  performance  of  the  ammunition  under 
test.  Typically,  this  might  include  such  items  as  internal  pressure  (at  one 
or  more  locations  in  the  gun),  muzzle  blast  overpressure  and  barrel  hoop 
and/or  axial  strain.  At  WSRL,  it  has  been  the  practice  in  the  Gun  Propulsion 
Research  Group  to  acquire  these  data  in  real  time  using  digital  transient 
waveform  recorders.  The  data  stored  within  the  internal  memory  of  the 
transient  recorder  is  then  processed  hy  a  dedicated  computer,  which  may  draw 
from  other  sources  additional  data  such  as  muzzle  velocity  and  ballistic  cycle 
times.  During  the  last  two  years,  considerable  experience  has  been  gained  by 
WSRL  personnel  in  the  handling  of  gun  interior  ballistic  data  by  small 
computers.  Initial  ef forts(ref . 1 )  utilised  a  Hewlett-Packard  9825A  computer. 
Another  computer,  the  Hewlett-Packard  85,  has  recently  been  brought  into 
service  at  a  small  calibre  range.  It  is  considerably  cheaper  than  the 
HP9825A.  The  HP-85  has  demonstrated  comparable  performance  to  the  HP9825A, 
and  in  addition  offers  the  capability  for  on-screen  graphics  and  hard-copy, 
plus  a  more  useful  internal  line  printer.  The  use  of  this  computer  for  data 
handling  in  the  sma 1 1 -ca 1 i bre  range  is  described  in  this  report. 


2.  SYSTEM  CONFIGURATION 

2.1  General  comments 

Details  of  instrumentation  for  a  small-calibre  ballistic  range  at  WSRL  have 
recently  been  published(ref .2) .  A  schematic  diagram  of  a  typical 

configuration  is  shown  in  figure  1,  which  illustrates  the  data  acquisition 
components  relevant  to  this  report.  The  primary  concern  is  the  gathering 
of  data  from  the  transient  recorder  and  associated  devices  and  its 
subsequent  processing.  In  the  normal  operating  mode  printed  and  plotted 
information  is  readily  obtained  between  firings,  without  the  need  to 
transfer  data  to  secondary  magnetic  media.  In  this  report  this  is  referred 
to  as  "on-line"  processing.  In  the  past,  and  at  other  laboratories  (see, 
for  example,  reference  3)  it  has  been  the  practice  to  store  the  raw  data  on 
magnetic  tape  and  process  it  at  the  conclusion  of  a  firing  program.  While 
a  capability  for  such  "off-line"  processing  has  been  included  in  the 
present  system,  it  has  proved  to  be  an  infrequent  user  requirement. 
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Figure  1.  Schematic  diagram  of  data  acquisition  equipment 
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2.2  System  iniil  to  1  .i  mi  data  process  i  ng 

A  Hewlett-Packard  8  b  Desktop  Computer  is  used  to  control  the  gun  data 
ueqtiisi  t  ion  system.  This  computer  (figure  2)  is  capable  of  "stand-alone" 
operation  in  tfiat  it  lias  its  own  interna1  printer  and  tape-drive  unit  as 
well  .is  a  full  screen  graphics  capability.  In  addition,  it  is  able  to 

control  a  range  of  peripheral  devices  through  appropriate  digital 
iritert  aces .  Software  is  written  in  Hewlett-Packard's  Faihanced  BASIC 
computer  language,  an  extended  version  of  AN'S  f  BAS'  f  l .'(  re  f  .  4  1  .  The  principal 
extensions  relate  to  printer  control,  mass  storage  operations,  graphics, 
and  memory  a  1 1 ocnt i on ( ref . 5  ) .  The  computer  used  in  this  system  has  S2K 
bytes  of  random-access  memory  (RAM)  and  has  read-only  memories  (ROMs)  which 
control  input/Uutput  and  Printing  and  P 1 ot t i ng ( re t . b  ,  7  )  .  The  source  coding 
tor  t  ht*  software  is  stored  in  a  tokenised  f orm( re f . 8 )  which  is  essential lv 
a  partial  compilation.  This  effects  considerable  ei onoinv  in  the  storage  of 
programs  in  comparison  with  many  similar  macli  i  lies  (  re  t  . ') ) .  Bight  "soft-key" 
allocations  can  he  made,  which  are  used  to  allow  user-con t ro 1 1 ed  program 
branching.  These  keys  are  similar  to  those  ol  the  HP<)82f>,  except  they  are 
"live"  -  which  means  they  are  dynamically  allocated  under  software  control. 

1  he  HPi)82ri's  "soft"  keys  are  essentially  static  in  their  allocations.  A 
"Key  l.ahel"  area  on  t  lit'  internal  CRT  of  the1  computer  is  available  to  remind 
the  operator  ot  current  key  functions. 


Figure  2.  Hewlett-Packard  8b  Desktop  Computer 
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2 . 3  Graph  ii'  d  i  sp  1  ay 

A  Hewlett-Packard  9872B  Plotter  is  connected  to  the  computer  using  the 
HP82937A  Interface.  This  interface  is  Hewlett-Packard's  implementation  of 
the  IEEE-488  standard(ref . 10)  for  the  HP-85.  The  plotter  is  a  four-pen 
device  which  is  compatible  with  many  kinds  of  computer.  It  responds  to  a 
special  language  called  HP-GL  (Hewlett-Packard  Graphics  Language)  which  can 
be  either  directly  input  or  generated  by  ROMs  which  implement  high-level 
language  commands.  The  computer  has  a  useful  on-screen  graphics  capability 
which  can  be  used  for  "quick-look"  records  and  for  firings  which  do  not 
require  high-quality  plots.  The  resolution  of  this  device  is  limited  by 
the  relatively  small  screen  (192x255  dots).  The  screen  image  can  be 
quickly  transferred  to  the  internal  thermal  printer. 

2.4  Data  storage  for  future  reference 

Experience  has  shown  that  data  storage  is  not  often  required  for  small 
calibre  firings.  However,  this  capability  is  available  using  the  HP-85's 
internal  cartridge  tape  drive.  A  particularly  useful  feature  of  the  HP-85 
is  that  only  one  additional  line  of  programming  is  required  to  adapt  tape 
mass-storage  functions  to  diskette  functions,  should  this  be  a  future 
requirement.  A  special  program  variant  has  been  developed  to  allow  "off¬ 
line"  (it*  remote  from  the  range)  processing  of  data  recorded  on  tape  or 
diskette . 

2.5  Printed  output 

The  32-column  thermal  printer  of  the  HP-85  has  proved  quite  adequate  for 
all  operations  at  the  small  calibre  range.  As  is  shown  later  in  this 
report,  the  extra  width  (in  comparison  to  the  HP9825)  allows  compact 
tabulation  of  firing  data  in  a  typical  muliple-shot  small-calibre 
experiment . 

2.6  Data  acquisition 

A  Biomation  1015  Waveform  Recorder (ref . 1 1 )  (figure  3)  is  used  to  acquire 
the  gun  firing  data.  This  device  embodies  four  input  channels.  Each 
channel  comprises,  in  essence,  a  10-bil  analog-to-digital  converter  and 
1024-word  storage  with  associated  processing  electronics.  Separate 
controls  exist  for  timebase,  triggering  and  analog  output  functions.  The 
four  1024-word  channels  can  be  linked  if  required.  The  minimum  acquisition 
interval  is  0.01  ms.  Several  operating  modes  are  available;  usually  the 
"pre-trigger,  single  shot"  mode  is  selected.  In  this  mode,  arming  the 
recorder  causes  it  to  continually  sample  the  signal  lines.  On  receipt  of  a 
suitable  trigger  signal  an  additional  (switch-selectable)  number  of  points 
is  taken,  then  sampling  is  terminated.  This  allows  relatively  high  trigger 
voltage  levels  to  be  set  and  makes  pre-trigger  information  available. 

2.7  Interfacing 

The  HP-85  computer  is  connected  to  the  plotter,  and  other  available 
peripheral  devices  described  in  reference  1,  using  the  HP82937A  interface 
which  conforms  to  the  IEEE-488  standard(ref . 10) .  As  many  as  fourteen 
devices  may  be  controlled  using  this  interface,  including  other  computers 
and  mass-storage  devices.  The  Biomation  1015  Waveform  Recorder  is 
connected  to  the  computer  using  the  HP82940A  GPIO  interface,  a  16-bit 
parallel  interface  which  is  the  equivalent  (for  the  HP-85)  to  the  HP98032A 
interface  described  in  reference  1.  The  electrical  connections  are  roughly 
comparable  and  are  tabulated  in  reference  12.  The  most  important 
electrical  requirements  are  those  which  relate  to  the  synchronisation  and 
polarity  of  the  data  exchange.  Data  exchange  protocol  is  maintained  by 
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Figure  3.  Biomation  1015  Waveform  Recorder 

pairs  of  "handshake"  lines.  These  lines,  in  this  application,  are  called 
"FLGA"  (flag  A)  and  "CTLA"  (control  A)  respectively.  FI.GA  is  a  line  from 
the  peripheral  device  through  which  it  indicates  its  readiness  to  transmit 
data.  CTLA  is  asserted  by  the  interface  to  synchronise  the  exchange.  FLGA 
has  the  logrc  states  "BUSY"  and  "READY";  CTLA  can  be  "TRUE"  or  "FALSE". 

The  electrical  specifications  of  the  Biomation  1015  require  certain 
settings  of  the  interface: 

(a)  full  handshake  (see  below)  for  data  exchange. 

(b)  inverted  logic  sense  on  CTLA  and  FLGA  control  lines. 

(c)  data  valid  with  ready-to-busy  transition  of  FLGA. 

.(d)  inverted  logic  sense  on  data  lines. 

(e)  interface  set  for  16-bit  parallel  operation. 

The  correct  sequence  of  operations  for  full-handshake  data  input  is  shown 
in  figure  4.  The  mandatory  requirements  are: 

(1)  interface  checks  FLGA  to  ensure  "ready"  state. 

(1)  interface  sets  CTLA  "true". 

(3)  peripheral  responds  by  placing  data  on  the  data  lines.  / 

(4)  peripheral  sets  FLGA  "busy". 

(5)  data  word  is  read. 

(6)  interface  sets  CTLA  "false". 

(7)  peripheral  sets  FLGA  "ready". 

However,  when  the  proper  wiring  allocations  were  made,  it  was  found  that  a 
timing  incompatibility  existed  between  the  HP82940A  interface  and  the 


i 
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Biomation  1015  recorder.  The  response  of  the  Biomation  1015  gave  rise  to 
tlie  situation  illustrated  in  figure  5.  The  premature  FLGA  response  caused 
the  interface  to  "hang  up"  and  the  transfer  was  interrupted.  A  simple 
circuit  (figure  6)  was  developed  by  to  resolve  this  situation  and  allow 
coherent  data  exchange.  This  circuit  is  incorporated  in  a  small  connector 
box  which  draws  its  power  requirements  from  the  Biomation  1015. 
Effectively,  this  circuit  uses  a  sequence  of  logic  gates  to  prevent  the 
premature  presentation  of  FLGA  in  the  "ready"  state  to  the  interface  or 
CTLA  in  the  "true"  state  to  the  peripheral.  This  second  condition  should 
not  arise  in  the  "full-handshake"  mode,  but  can  occur  with  other  timing 
protocols.  This  problem  did  not  occur  when  the  HP98032A  interf.i.e  was 
configured! ref . 1 )  as  its  CTL  response  follows  the  dotted  line  in  figure  5. 


CTL 


FALSE 


TRUE 


READY 


BUSY 


Figure  4. 


Ideal  full-handshake  timing  diagram 


FALSE 


TRUE 


READY 


BUSY 


Figure  5.  Timing  diagram  before  synchronisation 
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Figure  6.  Timing  synchronisation  circuit 


2.8  Program  security 

Recent  experience  has  shown  that  special  precautions  to  secure  tapes  are 
not  required.  Occasionally  tapes  reach  the  end  of  their  useful  life,  a 
problem  easily  resolved  by  the  existence  of  an  adequate  current  library  ol 
master  programs. 

2.9  S  -cial  peripheral  devices 

Two  other  special  peripherals  are  used  at  the  sma 1 1 -ca 1 ibre  range. 
Although  not  strictly  part  of  the  data  acquisition  network,  it  is 
appropriate  to  mention  them  at  this  stage. 

(a)  Oehler  Model  33  Chronotach  system 

Modifications  have  been  made  to  this  commercial  veloiity  measuring 
systemf re f . 2)  to  provide  improved  reliability  and  accuracy.  Three 
separate  units  are  used,  which  display  projectile  velocity  directly 
on  individual  LED  read-outs. 

(b)  Ballistic  signal  generator 

This  device  (figure  7)  (ref. 14)  generates  a  characteristic  square- 
pulse  voltage  of  short  duration  when  triggered  by  the  impact  of  the 
firing  pin  on  the  cartridge  base  or  by  an  ionisation  detector  at  the 
muzzle  of  the  test  gun.  This  allows  estimates  to  be  made  of 
ignition  delays  and  ballistic  cycle  time.  This  device  presents  its 
output  on  a  separate  channel  of  the  Biomation  1015.  The  signal  is 
then  synthesised  into  the  primary  pressure-time  trace  with  software. 
This  situation  has  the  disadvantage  of  using  a  quarter  of  the 
available  channels  for  a  relatively  trivia1  signal  but  has  certain 
electrical  and  processing  advantages.  Alternative  approaches  to  the 
timing  of  events  in  the  ballistic  cycle  are  being  investigated. 


INPUT  B 


POWER 


I  RATION  TRIGGER 
LEVEL  (O-lVblt) 


BALLISTIC 
GENERATOR  PD87I9 


INPUT  A 

tyMsiii  **»*••*. 


READY 


OUTPUT 


Rts/u  r 


FUSE 


Figure  7.  Hal  list  if  s  i  gn  t  I  gene  r.i  I  ■  ■  i 


.5.  SYSTEM  OPERA  I  I  ON 

This  section  gives  an  overview  ol  the  capahi lit  ies  "I  tin  sy:  t >  in  .u.d 
general  manner  in  which  it  is  used.  I  lie  uitu.il  oper.it  ing  met  I; 
determined  by  the  firing  program  being  undertaken,  hut  t  h"\  ate  le-iiai;-  '. 

similar  to  those  used  for  the  alternative  HI,<,K2;>-dr  i  vm  st  st  em  d-  :■  i  i  :  !••  • 

re  f  e rence  1  . 

13.1  System  connections 

The  Biomat  ion  transient  recorder  is  t  onnei  t  c.l  t  o  the  i  ■  •  a ,  j . . .  t .  > 
modified  HP82940A  GPlO  i  uteri  at  e  dost  r  i  bed  in  set  t  i  •  >u  .  Me  g  I  '.  '  • " 

connected  using  the  HP829T7A  mterl.n  e.  t  •  uiiua  t  i .  n  ■.  I*.  -  * .  r  t  h<  ,  i.i 

t  he  Ha  I  1  i  s  t  i  c  Si  gna  I  tiene  ra  t  o  r  a  re  made  I  h.e  p  ■  •  ■  a  .  t  i  1  ■  ■  .  .  . 

measurement  system  is  activated.  I  i ansdin  e i  ■  n  :  i  ha  i  re  rnr !  i  t  i  •  i  .  >:• 

up  using  the  munu  1  ac  t  ii  rers  '  receiimieiid.it  ions. 

t .  1  Da  t  a  acquisition 

I  he  front  panel  controls  o  I  the  K  i  em.it  i  on  1  ('  I  i  mi  set  t  •  •  u  ,  t  ah  I  i  \  i  I  i 
Orn  e  all  other  preliminaries  have  been  i  em  lndcl,  tin  I  i  i  i  nt:  is  initial 
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which  triggers  the  transient  icronlrr.  The  data  are  now  held  within  the 
memory  ot  the  Hioniatioii  l()lri  and  are  available  to  the  computer. 
Preparations  toi  the  next  firing  ran  now  be  undertaken  while  the  data  are 

p  I  o  i  e  s  s  e  d  . 

'  '  ll.lt  . I  1 1 1  * 1 1  t  ■ : . : .  I  1 1  g 

llie  ■  peiatoi  loads  a  piogram  tape  cartridge  into  the  UP-8r>  arid  turns  on  the 
power  to  the  computer.  Tile  computer  automatically  loads  a  start-up  program 
called  "Autost".  I'll  i  s  program  will,  if  required,  produce  a  listing  on  the 
internal  printer  which  informs  the  user  of  the  various  program 
c.ipahi  1  1 1  i  e.s  .  Surli  a  listing  is  illustrated  in  figure  8. 

At  present,  the  standard  program  tape  uses  four  similar  programs  for  data 
acquisition  and  processing: 

(.a)  8BB10  -  General  purpose  program  which  gives  a  similar  output  to 

figure  2  of  reference  1.  Useful  for  "one-off"  firings. 

(b)  85BIOa  -  Normal  sma 1 1 -ca 1 ibre  program  which  yields  data  in  a  compact 

tabular  form  suitable  for  multiple  firing  programs. 

(c)  85BI0h  -  As  for  85BIOa  with  Ballistic  Signal  Generator  output  on 

Channel  2  of  the  transient  recorder. 

(d)  BLANK  -  A  variant  of  BSBIOb  tailored  for  the  special  needs  of 

h  1  .ink  ammuni  t  i  on  . 

A  program  suitable  for  the  type  of  firing  being  conducted  is  loaded  and 
run.  Certain  information  regarding  titles,  instrument  settings  and 
projectile  velocity  is  entered  by  the  operator  in  response  to  prompting  by 
the  computer.  The  computer  then  acquires  the  raw  digital  data  from  the 
transient  recorder  and  performs  preliminary  calculations  to  determine 
voltage  offsets,  maximum  values,  and  conversion  factors.  A  firing  summary 
is  printed.  Typical  summaries  from  the  four  standard  programs  are 
illustrated  in  figure  9.  The  operator  is  then  prompted  to  select  one  of 
several  output  options  which  include: 

(a)  printing  parts  of  the  acquired  data 

lb)  plotting  the  data  on  a  digital  plotter  in  one  of  four  available 
formats 

(c)  plotting  the  data  on  the  internal  CRT  of  the  computer 

(d)  copying  the  CRT  plot  on  the  printer 

(e)  storing  the  data  for  later  reference. 

A  typical  data  printout  is  illustrated  in  figure  10.  Blots  of  firing  data 
on  an  external  plotter  and  on  the  internal  CRT  are  shown  in  figures  11  and 
1 2  respect i ve 1 y . 


PLOT  OPTIONS 


I  hose  prnqrams  acquire  their 
data  from  a  Plantation  1015,  and 
are*  dost  qrioii  t  err  innvement. 
r  t*p».*t  i  t  i  vp  tiperat  1  on  . 

Data  putr  iw  are  only  required 
once?,  but  tan  be  entered  or 
(.hanged  at  will.  Calculations 
within  input  lines  are  not 
p  er  mitt  et  I . 

On  st.u  cp'iMvp  r  uns,  dat  a  1  eyed 
in  earlier  is  retained  tiy  use  of 
the  TEND  LINE!  ley  without  data 
entr v . 

Use  of  the  [END  LINED  key  in 
this  way  when  the  Firing  Serial 
Number  is  requested  will  raise 
that,  number  by  one. 

keyboard  data  is  1  i  mi  ted  to  3? 
t  har  an  ter-  s  per  input  line. 

******************************** 

NORMAL  OUTPUT  OPTIONS 

These  options  will  be  displayed 
at  appropriate  times  in  the  ’KEY 
t  ABEL '  win  law  . 

START  -  Finished  with  processing 
-  Acquire  next  channel. 
PRINT  -  Print  data  summary  of 
current  channel. 

STORE  ~  Record  data  on  tape 
car  tri dge. 

PLOT  -  Start  Plot  Option  Menu. 
MFNLI  -  Return  to  normal  Option 
Menu  after-  plotting. 
SIJM'Y  -  Reprint  titles  and  main 
ba  I  1  i  st.  i  c  data . 

******************************** 


PI.  [.IT  1  -  Single  Plot  (A4  Paper) 

FI  UTL  Double  Plot  (A4  Paper  ) 

PI  0T3  Single  Plot  (A3  Paper  > 

FLOV4  -  Four  Flats  (A3  Paper ) 
CPL OT  -  Plot  on  CRT  screen 
CCOPY  -  Copy  CRT  plot  on 
thermal  paper. 

RESE1  -  Reset  plot  position 
i  ndi  cat  ors 

MENU  -  Return  to  normal  options 

******************************** 

MULTI-CHANNEL  OPTIONS 

NEXT  -  Acquire  next  channel. 
SLIP  -  Ignore  next  channel. 

******************************** 

MULTI -CHANNEL  INPUT 

This  program  can  draw  data  from 
up  to  four  channels  of  the 
BIOMAT  I  ON  1015  recorder. 

An  extra  output  option  (’NEXT) 
starts  acquisition  of  data  from 
the  next  channel .  Dat a  in  the 
next  channel  may  also  be  disreg¬ 
arded  by  the  use  of  ’ SC  IF". 

Print,  and  plot  output  of  multi¬ 
channel  data  is  done  in  terms  of 
pressure  units,  using  the  common 
t.imebase  of  the  recorder. 

'PRINT*  may  be  used  with  any 
channel  to  produce  a  summary. 

If  the  ' PLOT n ’  options  have  been 
used,  the  new  data  will  also  be 
plotted,  using  the  last  plotting 
device  and  plot,  format.  A  new 
pen  colour  will  be  used,  if 
appropriate  to  that  device. 

In  multi-channel  usage,  once  you 
record  data  on  taper,  you  will  bej 
cautioned  if  you  omit  to  record 
later  data  from  other  channels. 

******************************** 


Figure  8.  Operator  instruction  listing 
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**** **************************** 

7.62 mm  BALL  -  Test  Firing 

FIRING  NUMBER 

239 

Channel  No.  1 

Propellant  -  AR2206 
26th  November,  1981 

******************************** 

Max.  Pressure.  .  .  .  393.6  MPa 

Muzzle  Velocity..  863.7  m/s 

******************************** 

******************************** 

7.62mm  BALL  -  Test  Fiririq 

Pi  opel  1  ant  -  AR2206 
26th  November,  1981 

******************************** 


******************************** 


7.62mm  BALL  -  Test  Firing 


Propellant  -  AR2206 
26th  November,  1981 


******************************** 


Ser i al 

Channel 

Max l mum 

Muzz  1 e 

Number 

Number 

F'r  essure 

Vel oc 1 1  y 

(MPa) 

(m/s) 

1 

1 

393 .  6 

863.7 

n 

86.2 

n 

1 

387.2 

860.  1 

"■j 

88.  4 

j 

1 

397.  7 

865.8 

89.  1 

4 

1 

389.  1 

860.  6 

o 

B5.9 

5 

1 

385.  3 

870.  0 

'-y 

87.7 

******************************** 


7.62mm  BLANK  -  Lot  MF 11/6/81 


Horizontal  Firing  -  Ambient 
25th  November,  1981 


******************************** 


Ser  • 

Chan . 

Max  . 

Muzzle 

Action 

Seri al 

Channel 

Max i mum 

Pr i mer 

No. 

No. 

Press. 

Vel  . 

Time 

Number 

Number 

Press . 

Del  ay 

(MPa) 

(m/s) 

(msec ) 

(MPa) 

(msec ) 

1 

1 

393.  6 

863.7 

1.64 

1 

1 

77.0 

0.  45 

1? 

86.  2 

2 

23.5 

n 

1 

387.2 

860.  1 

1.58 

2 

1 

118.  1 

0.  47 

r.i 

88.4 

o 

jU 

23.  5 

3 

1 

397.7 

865.  8 

1.67 

3 

1 

72.9 

0. 46 

n 

89.  1 

o 

24.2 

4 

1 

389 .  1 

860.6 

1.55 

4 

1 

90.  3 

0.45 

'} 

85.9 

2 

25.4 

5 

1 

385.3 

870.0 

1.69 

5 

1 

81.7 

0.  47 

1’ 

87.  7 

2 

25.2 

Figure  9.  Typical  firing  summaries 


******************************** 


'.Ol'imii  OOl  I  I  ( •• .  t  I  ir  ii  at 


FIRING  NUMBER 

239 


Channel  No.  1 


TIME  PRESSURE 

(  i.i  SEC  >  (MPa) 

H)H**.*$  *******************  ******* 


900 

14. 2 

950 

yp  *  ~r 

1  000 

143.6 

1 050 

230. 5 

t  1  00 

509.  1 

1  1  50 

368.  2 

1  200 

393.  6 

1  250 

381.0 

i  300 

348.  6 

1  350 

308 . 6 

1  400 

267.  6 

1450 

229. 5 

1500 

195.8 

1 550 

1  ■  6 . 5 

1 600 

1  44.0 

1 650 

124.5 

1  700 

109.9 

1 750 

97.  7 

1800 

86. 9 

1 050 

78.  1 

1  900 

70.  3 

1  950 

64.0 

2000 

58.  1 

********  ************************ 


Figure  10.  Typical  single-channel  data  summary 


4 .  PROGRAM  STRUCTURE 


Much  effort  has  been  devoted  to  ensure  a  substantial  degree  of  similarity  to 
the  programs  described  in  reference  1.  Although  there  is  little  in  common  in 
the  appearance  of  the  HP!,  language  used  by  the  HP9825A  and  the  BASIC  language 
of  the  HP-85,  the  languages  are  functionally  alike,  and  it  has  been  possible 
to  maintain  a  common  overall  structure  with  the  earlier  programs. 

The  appendices  to  this  report  include  complete  program  documentation. 
Appendix  1  gives  information  relating  to  the  structure  of  the  programs, 
including  subroutine  functions,  variable  allocations,  tpst  status  and  a 
schematic  flow  chart.  Appendix  II  includes  a  complete  source  listing  of  the 
program  "BSBIOa".  Partial  listings  of  the  programs  "85BI0b"  and  "BLANK"  are 
illustrated  in  Appendix  III.  These  partial  listings  cover  areas  of 
significant  divergence  from  "85HIOa".  The  programs  contain  remarks  in  areas 
where  the  source  language  is  not  explicit,  and  Appendices  II  and  II]  include 
additional  notes  tor  user  guidance. 


5.  COMPARATIVE  PERFORMANCE 

A  recent  report ( ref . 15 )  compared  the  speeds  of  a  number  of  small  computers  in 
a  computation-intensive  task.  The  HP9825  was  about  150%  faster  than  the 
HP-85.  Therefore,  measurements  were  made  of  the  performance  of  the  software 
in  this  report  tor  comparison  with  that  of  reference  1.  All  programs 
displayed  identical  numerical  accuracy.  Performance  data  (time/channel )  are 
included  in  Table  1.  Three  representative  tasks  were  chosen  and  timed 
manually  with  a  stopwatch.  Task  1  involves  the  acquisition  of  data  from  one 
Biomation  channel  (1024  samples),  examination  of  the  record  for  baseline 
offset,  a  search  for  the  maximum  value,  and  the  printing  of  a  data  summary. 
This  task  is  the  minimum  that  will  be  asked  of  any  system.  Task  2  involves 
the  production  of  a  complete  single-channel  plot  on  A4  chart  paper,  including 
framing,  axis  drawing  and  labelling,  plotting  the  data  and  labelling  of  a  data 
summary  window.  This  is  the  most  demanding  and  time-consuming  task  commonly 
required.  Task  3  is  only  relevant  to  the  HP-85  and  is  included  for  comparison 
purposes  only. 


TABLE  1.  RELATIVE  PERFORMANCE  FIGURES 


Task 

HP9825 

HP-85 

T  i  me 

T  ime 

( sec ) 

(sec) 

Task  1 : 

Acquire/maximise/ 
print  summary 

19 

19 

Task  2: 

Channel  1  plot  on 

A4  chart  paper 

105 

115 

Task  3: 

Channel  1  plot 
on  internal  CRT 

n .  a . 

40 
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These  figures  show  that  the  HP-85  has  very  similar  capabilities  to  the  HP9825 
hi  the  handling  of  sma 1 1 -ca 1 ibre  ballistic  range  data.  Clearly,  the  HP-85's 
language  flexibility  and  its  faster  printing  capability  lead  to  similar 
overall  performance  to  the  HP9825  despite  the  latter  machine's  advantage  in 
computational  speed. 

In  a  recent  experiment,  large  numbers  of  rounds  of  blank  ammunition  were 
required  to  be  fired  each  day.  Firings  were  plotted  as  required,  and  several 
overhead  transparencies  were  made  (using  special  pens  for  the  plotter).  A 
comfortable  throughput  of  20  rounds  per  hour  was  maintained.  This  is  a  very 
satisfactory  figure,  allowing  statistically  relevant  numbers  of  rounds  to  be 
fired  in  a  short  time.  In  addition,  comparison  between  several  different 
types  of  ammunition  can  be  made  on  the  same  day  under  the  same  firing 
i  end  1 1  i  oils  . 


6.  CONCLUSIONS 


6.1  General  comments 

A  data  acquisition  and  processing  system  based  on  the  Hewlett-Packard  HP-85 
desktop  computer  can  process  sma 1 l -ca 1 ibre  gun  ballistic  data  reliably  and 
efficiently  at  low  cost  compared  with  some  systems  used  overseas.  The 
computer  has  features  which  allow  flexible  options  such  as  hard  copy  on 
internal  or  external  printers,  plotting  on  the  its  internal  CRT,  plotting 
on  an  external  plotter,  and  the  use  of  tape  cartridges  as  flexible  mass 
storage  devices.  System  software  is  written  in  a  BASIC  variant  which  is 
readily  learnt  and  understood,  and  users  may  develop  software,  based  on  the 
listings  in  this  report,  to  suit  their  individual  needs. 

6.2  Future  developments 

The  HP-85  has  excellent  expansion  capabilities  to  cope  with  future 
requirements.  The  most  complicated  current  software  leaves  over  50%  of  the 
RAM  memory  intact  after  all  data  storage  requirements  have  been  met.  It  is 
anticipated  that  the  Biomation  1015  recorder  will  eventually  be  replaced 
with  a  more  modern  device  which  transmits  data  over  the  1F.EE-488  digital 
interface.  The  HP-85  has  data  transfer  capabilities  in  this  environment 
which  make  it  especially  suitable  for  operation  with  such  a  device. 
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APPENDIX  I 
PROGRAM  DESCRIPTION 

I . 1  I  dent i f i cat i on 

The  programs  described  in  this  report  belong  to  the  "85BIO"  software 
series.  This  notation  is  specific  to  software  used  by  Gun  Propulsion 
Research  Group.  The  acronym  is  derived  from  the  explicit  association  of 
the  Hewlett-Packard  85  Computer  with  the  Biomation  1015  Waveform  Recorder. 

The  current  programs  in  this  closely-related  series  are: 

1.  85B10 

2.  85B10a 

3.  85 B  10b 

4 .  BLANK 


Version  date  -  19  May  1982 

Author  -  Dr  A.R.  Rye,  Gun  Propulsion  Research  Group, 

Weapons  Systems  Research  Laboratory. 
Telephone  (08)  259  5145 


System  -  Hewlett-Packard  85  Computer 


Language  -  HP  extended  BASIC 

-  substantially  compatible  with  other  HP  computers 

-  probably  incompatible  with  non-HP  compute  rs 

1.2  Purpose 

These  programs  perform  a  straightforward  data  acquisition  and  processing 
task.  Ballistic  firing  data  is  gathered  from  a  Biomation  1015  Waveform 
Recorder  and  associated  peripherals.  Preliminary  processing  is  performed 
and  a  brief  summary  generated.  The  software  allows  flexible  user- 
interaction  to  determine  post-acquisition  requirements.  Typical  options 
include  the  printing  of  detailed  data  summaries,  graphic  display  on  either 
the  computer's  internal  CRT  or  an  external  digital  plotter  and  data 
transfer  to  magnetic  tape  or  diskette. 

1.3  Method  and  Output 

These  topics  have  been  treated  in  depth  in  the  body  of  this  report. 

1.4  Operational  requirements  and  characteristics 

Computer  -  Hewlett-Packard  85  Computer 

-  16K  memory  (minimum) 

-  32K  memory  (desirable) 

-  HP  82936A  ROM  Drawer 

-  HP  00085-15002  Plotter-printer  ROM 

-  HP  00085-15003  Input-output  ROM 

Interfaces  -  HP  82937A  HP-IB  Interface 

-  HP  82940A  GPIO  Interface 


Acquisition 


Biomation  1015  Waveform  Recorder 
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Peripherals  -  compatible  Hewlett-Packard  digital  plotter 

(HP9872  desirable,  HP7225  and  HP7470  acceptable) 

-  compatible  Hewlett-Packard  mass-storage  unit 
(optional,  requires  HP  00085-15001  Mass  Storage  ROM) 

-  PD8719  Ballistic  Signal  Generator 

-  Velocity  measurement  system  (sky  screens,  etc) 

1.5  Structure  and  coding 

The  software  of  the  85BIO  program  family  is  similar  to  that  developed 
earlier  for  the  HP9825(ref . 1)  in  that  it  contains  a  "driver"  section,  a 
group  of  "direct-execution"  routines,  and  a  number  of  "service"  routines. 
A  schematic  flow  chart  is  shown  in  figure  1.1.  This  chart  is  included  as  a 
guide  to  the  various  program  options;  it  is  not  meant  to  represent  a 
rigorous  flow  diagram  such  as  those  required  for  more  structured  programs. 
The  names  and  functions  of  the  various  program  elements  have  been  described 
in  reference  1,  but  are  reproduced  here  for  completeness. 

1.5.1  Driver  section 

This  section  controls  the  overall  flow  of  the  program  up  to  the  data 
acquisition  stage.  Program  flags  are  set  and  cleared  as  required,  and 
the  bulk  of  the  information  needed  from  the  operator  is  gathered  in  this 
section . 


1.5.2  Direct-execution  routines 


These  routines  perform  the  "workhorse"  roles  in  the  program  -  the 
acquisition,  processing,  and  output  of  gun  firing  data.  These  routines 
are : 


(a)  GETDAT  - 

(b)  SUMMARY  - 

(c)  PRINT 

(d)  C0MPL0T  - 

(e)  CPLOT 

(f)  CCOPY 

(g)  STORE 

(h)  SKIP 


acquire  data  from  transient  recorder 
print  data  summary 
print  data  segments 

shared  plotting  routine  used  by  all  PLOTn  routines 

plot  data  on  internal  CRT 

copy  CRT  to  internal  printer 

record  data  on  magnetic  tape 

ignore  contents  of  next  channel. 


1.5.3  Service  routines 


These  routines  handle  general  administrative  tasks  and  defined  tasks 
required  by  one  or  more  of  the  direct-execution  routines.  They  include: 


(a)  PLOTn  routines 

(b)  SET  LIMITS 

(c)  WARNING 

(d)  CENTRE 


PLOT 1 ,  PLOT 2 ,  PL0T3 ,  and  PL0T4  initialise  the 
plotting  areas  for  the  four  available  plot  formats 
establishes  limits  for  plot  axes 
signals  error  conditions 
controls  print  formats 


"WARNING"  and  "CENTRE"  have  been  deleted  from  the  Flow  Diagram 
(figure  1.1)  for  clarity. 


Figure  1.1  Flow  diagram  for  85BIO  program  series 
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[.5.4  Program  counters 

Certain  program  variables  are  reserved  for  internal  "housekeeping". 

These  variables  include: 

(a)  D$  -  Temporary  string,  used  in  many  areas  of  the  software. 

(b)  N  -  Number  of  the  recorder  channel  in  use.  Also  designates  the 

plotter  pen  station  associated  with  that  channel. 

(c)  Q  -  Number  of  data  files  on  a  data  tape. 

(d)  R  -  Voltage  offset  figure  (raw  data). 

(e)  Y  -  Pointer  to  which  of  two  plots  on  a  double-plot  page  is  current 
(t)  Z  -  Pointer  to  which  of  four  plots  on  a  four-plot  page  is  current. 

1.5.5  Program  flags 

Variables  FI  to  F8  are  used  as  flags  by  the  software.  Their  meanings, 
when  they  are  non-zero,  are: 

(a)  FI  -  Multichannel  mode  in  effect. 

(b)  F2=l  -  Last  plot  was  on  external  plotter. 

F2=2  -  Last  plot  was  on  CRT. 

(c)  FT  -  Data  has  been  recorded. 

(d)  F4  -  Current  channel  to  be  plotted  on  external  plotter. 

(e)  F5  -  Current  channel  has  been  recorded. 

(f)  F6  -  Current  channel  to  be  plotted  on  CRT. 

(g)  F7  -  Headings  have  been  printed. 

(h)  F8  -  Indicates  which  of  the  PLOTn  formats  is  in  use. 

1.5.6  Plot  formats 

Four  plotting  formats  are  available  on  an  external  HP9872  plotter: 

(a)  PL0T1  -  single  plot,  A4  size 

lb)  PL0T2  -  dual  plot  on  A4  size  paper 

(c)  PLOT!  -  single  plot,  A3  size 

(d)  PL0T4  -  four  plots  on  A3  paper 

Other  compatible  plotters  may  be  used,  but  only  the  PL0T1  format 
will  be  useful.  A  schematic  representation  of  the  four  plot  layouts 
is  illustrated  in  figure  1.2. 

1.6  Test  status 

These  programs  have  been  extensively  tested  in  recent  months,  and  are 
based  on  eighteen  months  experience  with  the  system  described  in 
reference  1.  While  it  is  impossible  to  guarantee  that  they  are  "error 
free",  it  can  be  said  that  deliberate  attempts  to  generate  errors  have 
so  far  failed.  Certainly,  no  problems  have  been  experienced  in  the 
routine  exercising  of  all  the  current  options. 
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APPENDIX  II 


PROGRAM  LISTING  AND  USER  NOTES  FOR  PROGRAM  "85BIOa" 


1  < 

REM 

*  PROGRAM 

"85B I Oa " 

* 

1 

REM 

*  -  USF  WHEN  FIRING  A 

♦ 

REM 

*  SE  RIFS 

OF  SHOTS 

* 

4 1 

OF  G 

•2  OFT  ION  BASE  !  .2  Y,7=l 

1  ,i 

LUM 

L  *  l  1  1  .  Y  *  1  '.I 

i. 

L'lM 

T  *  I  77  1,0*1.  ’ 

7  I  ,  G1  *[  '2  1. 

G2‘l 

DIM 

D*I4"l,L*l  1 

•  'B  ] 

D  I  M 

LI (7, 17', L. 

'  3  >  .  L  ’  (  '•  ' 

INTEGER  P  (  l 1  *24  ) 

1 

. >  F  3  , 

F5,  F  ’  =u  -2  L. 

*■- "  " 

1  1 1 >  ENABLE  I  DO  64+72+4+1 
12"  REM  SET  IJF1  GPIO  INTERFACE 
1  REM  INVERT  CTL.A  ?.  ELBA 
14m  CONTROL.  8,  :  17 

15"  REM  START  POINT 


I 


1  6m  (SOLE AR  .2  i  .LEAR 

3  'M  LE  F3  AND  NOT  F5  THEN  GOSUB  2960 
1  90  F  1  ,  F2,  F3,  F4.  F5,  F6=0  .2  N=1 
19"  IF  F7  THEN  51" 


2017  D1SP  "FIFING  PROGRAM  TITLE";. 2  INPUT  D* 

21"  IF  LEN(I)*)  37  THEN  GOSUB  302"  .2  GOTO  200 
72"  IF  i.EN(D*>  THFN  T*=D* 

73"  DISP  "FIRING  HL-  RIAL  NUMBER";. 2  INPUT  Dt 
74m.  ii-  I _ [. N  ( P  *  >  72  THEN  GOSUB  3020  .2  GOTO  230 

if  len •: n* > -o  then  s*=val*  <val  <s$)  +1  >  else  s*=d* 

.6"  DISP  "NUMBER  OF  CHANNELS";. 2  INPUT  D* 

270  IF  LEN(Dt)  THEN  M=VAL<D*>  ELSE  290 

2S0  IF  VALID*)  4  THEN  260 

29"  REM  SECOND  SI  ART  POINT 

700  IF  F3  AND  NOT  F:5  THEN  GOSUB  296" 

710  F  5-0  .2  IF  1-1  THEN  N=N+1 
J  I'M)  IF  FI  AND  F2=l  THFN  F4=-l 
'•30  IF  FI  AND  F  2=2  THEN  F6----1 
340  IF  F7  THEN  520 

350  DISP  "COMMENT  #  1  " ;  .2  INPUT  D$ 

360  IF  I.  ENID*)  32  THEN  GOSUB  3020  .2  GOTO  350 
3  70  IF  LENIDft)  THEN  G1*=D* 

780  DISP  "COMMENT  #  2";  .2  INPUT  D* 

390  IF  LEN  ( D* )  32  THEN  GOSUB  3020  .2  GOTO  3B0 
4 Cm"1  IF  LEN  (  D*  )  THEN  G2$=D$ 

410  IMAGE  //, 3? <"*">,// 

420  PRINT  USING  410 
430  D*=T*  .2  GOSUB  2890 
44"  GOSUB  2930  .2  PRINT 
45"  D*=G1*  .2  GOSUB  2890 
460  D*=G2*  :2  GOSUB  2890 
470  PRINT  USING  410 

480  PRINT  "Serial  Channel  Maximum  Mu;?le" 

490  PRINT  "Number  Number  Pressure  Velocity" 

500  PRINT  "  (MPa)  (m/s)"  .2  PRINT 

510  IF  F  7  THEN  S*=VAL* ( VAL < S* ) + 1 ) 

520  DISP  "CHARGE  AMP.  SETTING  <MPa/V>";.2  INPUT  D* 
330  IF  LEN  ( D*  )  THEM  R1=VAL<D*> 

34"  DISP  "VOLTS  FULL  SCALE";. 2  INPUT  D* 

550  IF  LEN ( D* )  THEN  F=VAL(D*> 
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5fc»0  R4=F*R1*1 0/1023  ©  F7=l 
570  IF  FI  THEN  610 

580  DISP  "TIMEBASE  SETTING  ( msec )  " ;  ©  INPUT  D$ 

59<)  IF  LEN(Dt)  THEN  R2=VAL(D*> 

600  DISP  "MUZZLE  VELOCITY" ;  5)  INPUT  V 

610  GOSUB  1030  •  PRESSURES 

620  IF  Ml  THEN  Ft  =  l 

6  TO  REM  SUMMARY 

640  IMAGE  4A,6D,8DZ.D,7DZ.D 

650  IF  N= 1  THEN  PRINT  USING  640  ;  S*,1,R3/10,V 
660  IF  N  1  THEN  PRINT  USING  640  ;  "  ",N,R3/10 

670  REM  OPTIONS 
680  REM  DEFINE  KEY5< 

690  OFF  KEY#  1  ©  OFF  KEY#  6 

7 oO  ON  KEY#  2, "STORE"  GOTO  1770 

7R>  ON  K  EY#  3,  "PLOT  "  GOTO  910 

720  ON  KEY#  4, "MENU  "  GOTO  690 

730  ON  KEY#  5,"START"  GOTO  150 

740  OFF  KEY#  7  ©  OFF  KEY#  9 

750  IF  FI  THEN  ON  KEY#  7, "NEXT"  GOTO  290 

760  IF  FI  THEN  ON  KEY#  8, "SKIP"  GOTO  2010 

770  CLEAR  ©  IF  F4  THEN  ON  F8  GOTO  2180,2330,2420,2600 

790  IF  F6  THEN  1540 

790  KEY  LABEL 

800  GOTO  790 

810  ON  KEY#  1,"PL0T1"  GOTO  2120 
820  ON  Klitt  2,  "PL0T2"  GOTO  2210 
930  ON  KEY#  3,"CPLQT"  GOTO  1540 
840  ON  KEY#  5, "PL0T3"  GOTO  2360 
950  ON  KEY#  6, "PL0T4"  GOTO  2450 
860  ON  KEY#  7,"CC0PY"  GOTO  900 
870  ON  KEY#  8, "RESET"  GOTO  890 
980  GOTO  770 
890  Y,Z=1  ©  GOTO  770 

900  GRAPH  ©  COPY  ©  PRINT  USING  410  ©  GOTO  770 
1000  REM  .DIRECT-EXECUTION 
1010  REM  >  ROUTINES 
1020  REM 

1030  REM  ::  "GETDAT"< 

1040  REM  >CONTROL  #’S  FOR  REG.4C 
1050  REM  >  192  -  No  Hand shale  < 

1060  REM  32  -  Full  Handshake: 

1070  REM  >  12’  -  Inverted  Data  < 

1080  R3,R=0 

1090  CONTROL  8,4  ;  12+192 

1100  OUTPUT  810  USING  "W"  ;  226 

1110  CONTROL  8,4  ;  12+32 

1120  FOR  1=1  TO  24 

1130  ENTER  810  USING  "#,W"  ;  P  < I ) 

1140  R=F'(I)+R  ©  NEXT  I  ©  R=R/24 
1150  IMAGE  #,W,W,W,W,W,W,W,W,W,W,W 
1160  FOR  1=25  TO  1015  STEF'  10 

1170  ENTER  810  USING  1150  ;  P < I ) , P ( I + 1 ) , P ( I +2 ) , P < I +3) . P ( I +4 ) , P ( I +5) , 
P ( I +6 ) , P ( I +7) , P<I+S> ,P(I+9) 

1180  NEXT  I  ©  P6= . 3  ©  FOR  1=25  TO  1024 
1190  IF  P(I>  R3  THEN  R3=P ( I > 
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I  J>  'U  IF  ftp  h  J.*P6  I  HEN  I  2.’n 

121"  NIL  X  T  1 

1270  R3  =  iR3-R)  *R4 

12 '.IP  IF  N  M  THFN  RETURN 

i  24"  l  UNI  RDL  0,4  ;  17+192 

175"  OUTPUT  81"  US  INI.  "W"  ;  228 

12.-..'  kFTURM 

l.:T"  REM  COMMON  e ■  t  I )  t  t  er 
121-10  IF  NOT  F7  I  HEN  GOSUB  2710 
I  790  SCALE  I  7"  1  )  ,  O,  L2  (  1  ) 

1  :."0  FEN  N  2  IF  F 2  THEN  1370 

1  71"  FAXES  -L7<7)  ,L.2(3)  ,0,",L3<2)  /L3  (3)  ,  L2  (2) /L2  (3) 
17.70  MOVE  -  0.7  t  1  )  /  (7+6*Pl )  )  ,  L2  (  1  ) /10 
1  7  3"  CSIZE  4,1.5  .2  LOIR  90 
1  740  LABE l  "PRESSURE  .MPa)" 

1  35<  ■  MOVE  1  '.  •.  1  04.  -  (L7  (  1  >  /  (  7  f  2*P  1  )  > 
l  I.-."  I  DIR  "  .2  LABEL  "TIME  (msec)" 
t  ’ REM  "GRAPH" 

1  '.RC>  FOR  1  1  lit  R//R7 

17.9"  PI  01  I  *R2,  (P  <  I  )  -R)  *R4/  1  "  .2  NEXT  I 
140"  PENUP  .2  F  4  -  0  2  IF  F2  THEN  770 
1410  CSIZE  4-P 1 , .  75 

142"  R5=.6*L’.il)  2  R6  =  (  1 .  1  5-P 1  /4 )  *1.2  (  1 ) 

143"  MOVF  R5 ,  R.->  .2  LABEL  T4. 

144"  MOVE  R5 , R6  -  . "8 * L  2(1) 

145"  LABEL  "Serial  No.  ".»St 
1  40 A  MOVE  R5  ,  R6  - .  I  r>  *  L  7  (  l  > 

14'0  CSIZE  7 , . O 

140"  LABEL  USING  1510  ;  "Mac.  Pressure" , R3  / 1 O, "MF'a" 
149"  MOVE  R5.R6-. 24*L2<1 > 

1500  LABEL  USING  1510  ;  "Mur.  Veloci tv". V. "m/s" 

151"  IMAGE  E  ,  51).  D,  X  ,  1 
1520  IF  FI  THFN  F7-1 
153"  GOTO  77" 

174"  REM  PLOT  ON  CRT 

155"  IF  F  7-0  THEN  GOSUB  271" 

I  '  PRO  PI  0  T  1  ER  I  S  I  .2  P5— RAT  10*1  O" 

157"  LOCATE  7  i 1 *P5, 10/ 1 1 *P5, 800/53, 4800/53 
1  500  SCAL  E  0.1  7(1). O , L2 ( 1 ) 

159"  IF  E2  THEN  1690 

1600  GCLEAR  .2  IF  LEN  <  L*  >  <  1  THEN  GOSUB  1740 

1610  MOVE  L.7(l>  *.8,  L2<1  >*.9 

1620  BPLOT  L*,6 

1630  FAXES  — L.  3(2)  ,L2<2)  ,0,0 

1640  MOVE  L3< 1 > * . 3, - (L2 ( 1 > /5) 

1650  LABEL  "TIME  (msec:)" 

1660  LDIR  90 

167"  MOVE  -  (I.  3  (  1  )  /5>  ,L2<  1 )  *.  16 
1680  LABEL.  "PRESSURE  (MPa)" 

1690  LDIR  O  .2  MOVE  0,0  .2  F6=0 
1700  FOR  1=1  TO  R7/R2 
1 7 1 0  DRAW  I #R2 , ( P ( I ) -R ) *R4 / 1 0 
1720  NEXT  I  .2  IF  FI  THEN  F2-2 
1730  GOTO  770 

1740  ASSIGN#  1  TO  "LDATA2" 
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1/50  READ#  1  ;  L* 

1760  ASSIGN#  1  TO  *  i  RETURN 
1 770  REM  "STORE" 

1780  D*=""  3  IF  F5  THEN  3000 
1790  IF  F3  THEN  1960 

1800  DISP  "LOAD  ”«/D*S<"DATA  TAPE;  PRESS  ’CONT’"  3  PAUSE 
1810  ON  ERROR  GOTO  1870  3  D*  =  " " 

1820  ASSIGN#  1  TO  "INDEX" 

1830  READ#  1,1  3  OFF  ERROR 
1840  IF  Q+M< 25  THEN  1950 

1850  BEEP  3  DISP  "NOT  ENOUGH  SPACE  FOR  ALL  DATA  -" 

1860  D*= " NEW  ”  3  GOTO  1800 
1870  IF  ERRN-67  THEN  1890 

1880  BEEP  3  DISP  "Err or " ; ERRN; "  in  1 i ne" ; ERRL  3  PAUSE  3  GOTO  1880 
1890  BEEP  3  DISP  "TAPE  NOT  INITIALISED!" 

1900  DISP  "INITIALISE  IT  (7  Minutes)";  <9  INPUT  V* 

1910  IF  UPC* (Y*C 1 , 1 1 > #"Y"  THEN  1860 
1920  ERASETAPE  3  CREATE  "INDEX", 1 
1930  CREATE  "DATA" , 25, 800 
1940  ASSIGN#  1  TO  "INDEX"  3  0=0 
1950  PRINT#  1,1  ;  Q+M 
1960  ASSIGN#  1  TO  "DATA" 

1970  IF  F  3  THEN  F3=l 

1980  PRINT#  1,0+N  ;  M, T*. S*, Gl*, G2*, V, R, R2, R3, R4, P ( ) 

1990  ASSIGN#  1  TO  * 

2000  F 5= 1  3  GOTO  770 
2010  REM  "SKIP"  . 

2020  IF  F3  AND  NOT  F5  THEN  2960 
2030  IF  FI  THEN  N=N+1 
2040  CONTROL  8,4  ;  12+192 

20S0  OUTPUT  810  USING  "W"  ;  226 
2060  CONTROL  8,4  ;  12+32 

2070  FOR  1=1  TO  1013  STEP  11 

2080  ENTER  810  USING  1150  ;  P  ,  P ,  P,  P,  F',  P,  P ,  P,  P ,  P,  P3  NEXT  I 
2090  IF  N=M  THEN  GOSUB  1240 
2100  GOTO  770 

2110  REM  SERVICE  ROUTINES.: 

2120  REM  "PLOT  1 "  < 

2130  PLOTTER  IS  705  3  P=100/18 

2140  LIMIT  5.4,255.6,5.7,186 

2150  SCALE  0,25,0,18  3  MOVE  0,0 

2160  Pl  =  14  3  F'2=  12.5  3  P3=25  3  P4=10 

2170  GOSUB  2660  '  BOX  ROUTINE 

2180  PLOTTER  IS  705 

2190  LOCATE  4*P,22*P,3*P, 15*P 

2200  Pl=.l  3  FQ=1  3  GOTO  1270 

2210  REM  >  "PL0T2"  < 

2220  PLOTTER  IS  705  3  P=100/12 
2230  Z--Z  3  IF  Z<0  THEN  2260 
2240  LIMIT  13.9,194.2,8.8,128.8 
2250  GOTO  2340 

2260  DISP  "LOAD  GRAPH  PAPER;  PRESS  ’CONT’"  3  PAUSE 
2270  LIMIT  13.9,194.2,8.8,258.9 
2280  SCALE  0,18,0,25 

229o  Pl  =  10  3  F'2=8. 8  3  P3=18  3  P4=1.2 
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"2 3«  >0  MOVE  u,0  i)  GOBIJB  2660 

2>lv  MOVE  0,13  2  GOSUB  2660 

2320  LIMIT  13.9, 194.2, 138.9,258.9 

2  3.30  PLOTTER  IS  705 

2340  1  OCATE  3*P, 15*P,2*P, 10*P 

.350  P1=0  A  F8=2  2  GOTO  1270 

7  >-o  REM  "PLOT 3"  3 

3"  7o  PLOTTER  IS  705  .2  P=4 

2  380  LIMIT  15.4,395.9,8.6,258.6 

2390  SCALE  0,38,0,25 

2400  PI  =21  .5)  P2=17.6  .3  P3=38  .2  P4=25 

7410  MOVE  0,o  .2  GOSUB  2660 

2420  PLOTTER  IS  705 

743o  LOCATE  4*P, 34*P. 3*P, 23*P 

2440  PI  =  .5  .2  FIT  =3  2  GOTO  1270 

7450  REM  "PLOT  4"  < 

7460  PLOTTER  IS  705  .2  P=100/12 
2470  IF  Y=  1  THEN  V=2  .2  GOTO  2510 

7490  IF  Y=2  THEN  Y=3  .5)  GOTO  2630 

2490  IF  Y=3  THEN  Y=4  .2  GOTO  2640 

2500  IF  Y=4  THEN  Y=1  3  GOTO  2650 

2510  DISP  "LOAD  GRAPH  PAPER;  PRESS  ’CONT'"  5)  PAUSE 

7520  LIMIT  15.4,395.9,8.6,258.6 

2530  SCALE  0,38,0,25 

7540  PI  =  10  5>  P2~-8 . 8  S>  P3=18  2  P4=12 

.3550  MOVE  0,0  .2  GOSUB  2660 

2560  MOVE  0,13  .2  GOSUB  2660 

2570  MOVE  20,0  .2  GOSUB  2660 

2580  MOVE  20,13  .2  GOSUB  2660 

2590  LIMIT  15.4,195.7,138.6,258.6 

7600  PLOTTER  IS  705 

26  jo  LOCATE  3#P,  15*P,2#P,  10*P 

2670  P 1  =0  .2  ES=4  .2  GOTO  1270 

3630  LIMIT  15.4,  195.7,8.6,  128.5  .2  GOTO  2610 

2640  LIMIT  215.6,395.9,  138.6,258.6  .2  GOTO  2610 

2650  LIMIT  215.6,395.9,8.6,128.5  .2  GOTO  2610 

2660  REM  >  "BOX"  < 

2670  I  DRAW  0,P4  S>  I  DRAW  P3,0 
2680  I  DRAW  0,-P4  .2  I  DRAW  -F'3,0 
2690  IMOVE  P 1 ,  P4  -2  IDRAW  0.P2-P4 
2700  IDRAW  P3-P 1 , 0  5)  RETURN 
2710  REM  "SET  LIMIT5"< 

2720  R7=1000*R3 

2  730  FOR  1  =  1  TO  12  .2  FOR  J=1  TO  3 
2740  READ  LI  <  J  ,  1  )  .2  NEXT  J  2  NEXT  I 

2750  DATA  2, 1 , . 1 , 4, 1 , , 1 , 5, 1 , .  1 ,  10,  1 ,  .  2,  20, 2, . 5, 40, 5,  1 . 50, 5, 1 

2760  DATA  100, 10,2,200,20,5,400,50, 10,500,50, 10,800, 100,20 

2770  RESTORE 

2780  FOR  1  =  1  TO  12  5>  J=I 

2790  IF  LI ( 1 , I ) >=R3/ 10  THEN  2810 

2800  NEXT  I 

2810  IF  R2# . 0 1  THEN  2830 

2820  DISP  "Plot  Baseline  -  4,5  or  10  msec " ;  5>  INPUT  R7 

2830  FOR  1  =  1  TO  1  5>  K=I 

284 v  IF  L 1 ( 1 , I ) >=R7  THEN  2860 
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285*  i  NE  X  I  I 

286«>  for  i  i  id  .i>  i 

28  7* »  I  .  J  (  1  )  I  1  (  I ,  1  >  a)  NEX  T  1 

2880  RETURN 

2890  REM  CENT  RING  ROUT INE< 

2900  L.=  1  6 -L  EN  (  D* )  \  2 
2910  PRINT  TAB (L ) ; Dt 
2920  RETURN 

2930  FOR  1-1  TO  LEN ( B$  > 

2940  D*CI,i:i  =  "-"  S>  NEXT  1 

2950  GOTO  2910 

2960  REM  WARNING  ROUTINES- 

2970  DISP  "LAST  CHANNEL  NOT  STORED"  S)  BEEP 

2980  DISP  "ENTER  CSD  (STORE)  OR  CCD  (CONT>";S>  INPUT  Y* 

2990  IF  UPC*(Y*C1, 1D)="S"  THEN  1960  ELSE  RETURN 

3000  DISP  "LAST  CHANNEL  ALREADY  STORED"  *>  BEEP 

3010  GOTO  770 

3020  DISP  "TOO  LARGE,  RE-ENTER:" 

3030  RETURN 
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USER  NOTES  FOR  PROGRAM  "RSlilOa" 
Line  Number  Comments 


60-90 

Allocate  memory  for  title,  serial  number, 

lines,  pressure,  and  fixed  plotting  limits. 

two  comment 

1  10 

Suppress  unintended  keyboard  interrupts. 

140 

Inverts  the  logical  sense  of  the  interface 
flag  lines. 

cont  rol 

and 

190 

F7  true  means  headings  have  already  been 
printed . 

sought 

and 

410-500 

Print  headings 

560 

R4  is  conversion  factor  from  10-bit  binary  to 

user 

units.  (A  ten-fold  scale-up  is  used  so  that  precision  is 
maintained  with  integer  arithmetic) 


590  R2  is  timebase  per  point  in  msec. 

630-660  Print  summary 

670-760  and  Establish  "soft-key"  allocations 

810-880 

770-800 

1030-1260 

1090 

1010 
1200 

1270 
1280 
1540 
1620 
1740 
1770 
2010 
2120 


"Options"  loop 

Acquisition  routine  -  also  determines  maximum  value. 
(Note  -  GP10  Interface  is  set  to  address  "8”,  port 
configuration  "10".  Control  register  4  sets  handshake 
and  data  logic  sense.  Interface  wiring  is  such  data 
values  of  226  and  228  (decimal)  initiate  and  terminate 
digital  output  from  the  Biomation  1015) 

Invert  data,  select  "no-handshake"  mode 
(allows  direct  write  to  interface). 

Invert  data,  select  "full-handshake"  mode. 

Ceases  search  for  maximum  value  if  current  value  is  less 
than  30%  of  maximum  value.  This  line  should  be  modified 
for  records  which  have  unusual  waveforms. 

Common  plotting  routine  used  by  "PLOTn"  routines. 

Routine  at  line  2710  scales  data. 

Plotting  routine  on  internal  CRT. 

Display  WSRL  logo  on  screen. 

Get  data  for  WSRL  logo  from  tape  file. 

Store  data  on  tape  -  initialise  if  necessary. 

Skip  one  channel  of  recorder. 

PI.0T1  sets  up  framework  for  single-plot  A4  page. 
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22  10 
2.560 
2450 
2b60 
2710 
2890 


1M.0T2  sets  up  framework  for  ifouhle-pfot  A4  page. 
PL0T3  sets  up  framework  for  single-plot  A3  page. 
PL0T4  sets  up  framework  for  four-plot  A3  page. 
General-purpose  framing  routine. 

Establishes  plotting  limits. 

Centres  data  on  printer. 


2960 


Various  warning  routines. 
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APPENDIX  III 

PROGRAM  LISTING  AND  NOTES  FOR  SUPPLEMENTARY  PROGRAMS 


PART  I A 1.  SOURCE  LISTING  AND  NOTES  FOR  PROGRAM  "85B10b” 

1030  REM  "GETDAT" 

1040  REM  CONTROL  # ’ S  FOR  REG. 4: 

1<>50  REM  192  -  No  Handshal  e  < 

1 060  REM  32  -  Full  Handshakes 

1<>70  REM  12  -  Inverted  Data  < 

1 O0O  R3 , R-O 

1090  CONTROL  8,4  ;  12+192 

1100  OUTPUT  BIO  USING  "W"  ;  226 

1110  CONTROL  8,4  ;  12+32 

1120  FOR  1=1  TO  24 

1130  ENTER  810  USING  "#,W"  ;  P (I) 

1140  R=P  (  I )  +R  .i)  NEXT  I  S>  R=R/24 
1150  IMAGE  #,W,W,W, W, W,W, W, W,W,W,W 
1160  FOR  1=25  TO  1015  STEP  10 

1170  ENTER  810  USING  1150  ;  P ( I ) ,P < 1+1 ) , P ( 1+2) ,P( 1+3) , P ( 1+4) , P ( 1+5) 
P ( I +6 ) , P ( I +7 ) , P  < I +8  > , P ( I +9 ) 

1180  NEXT  I  ,5  F’6= .  3  .5  FOR  1=25  TO  1024 
1190  IF  PCI)  R 3  THEN  R3=F ( I ) 

1200  IF  P(I>  R3*P6  THEN  1220 
1 210  NEX  r  I 

1220  R  ’=  (R3-R)  *R4  .i>  K=0 

1230  IF  N# 1  THEN  1380 

1240  R6=0  0  FOR  1=1  TO  11 

1250  ENTER  810  USING  "#,W"  ;  R5 

1260  R6=R5+R6  i)  NEXT  I  3  R6=R6/1  1  +  100 

1270  FOR  1=12  TO  1013  STEP  11 

1280  ENTER  810  USING  1150  ;  Q ( 1 ) , Q ( 2 ) , Q (3) , O (4) , Q (5) , Q (6) , O ( 7 ) , Q ( 8 ) 
0(9),Q(10),Gtll) 

1290  IF  k=2  THEN  1370 

1300  FOR  J = 1  TO  11 

1310  IF  1=2  THEN  1360 

1320  IF  0  <  J )  R6  THEN  1360 

1 330  P  < I + J - 1 ) =200+R 

1340  IF  h  =0  THEN  K=1  S>  T(1)=T+J-1 

1350  IF  K= 1  AND  I +J-T  < 1 ) >6  THEN  K=2  S>  T (2) =I+J-1 
1360  NEXT  J 
1390  NEXT  I 

138i>  IF  N<M  THEN  RETURN 
1390  CONTROL  8,4  ;  12+192 
1400  OUTPUT  810  USING  "W"  ;  228 
1410  RETURN 

Line  Number  Comments 

1030-1410  Data  gathering  routine  for  "85BIOb" 

1270-1370  Examine  channel  2,  point-by-point.  Any  that  exceed  10% 
of  full-scale  (plus  offset)  are  transferred  as  a  20%  of 
full-scale  signal  to  the  channel  1  data  already 
acquired.  In  addition,  the  times  of  peak  1  (primer 
strike)  and  peak  2  (muzzle  exit)  are  stored  as  T(l)  and 
T(2) . 
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1030  REM  "GET DAT "  . 

1040  REM  CONTROL  #  ’  S  FOR  REG.4< 

1050  REM  192  -  No  Handshake  < 

1060  REM  32  -  Full  Handshal e< 

1070  REM  12  -  Inverted  Data  < 

1 080  R3 ,  R=o 

1090  CONTROL  0,4  ;  12+192 

1 lOO  OUTPUT  OlO  USING  "W"  ;  226 

1110  CONTROL  8,4  ;  12+32 

1120  FOR  1=1  TO  24 

1130  ENTER  810  USING  "#,W"  ;  P  < I > 

1140  R=P(I)+R  3  NEXT  I  3  R=R/24 
1150  IMAGE  #,W,W, W, W, W,W, W, W,W,W, W 
1160  FOR  1=25  TO  1015  STEP  10 

1170  ENTER  810  USING  1150  ;  P  (  I )  ,  P  <  1  + 1  >  ,  P  ( 1+2)  ,  P  (I  +3 )  ,  P  ( I  +4  >  ,  F'  (I  +5  > 
P  < I +6 ) , P  < I +7 ) , P ( I +8) , P ( I +9) 

1180  NEXT  1  3  FOR  1  =25  TO  1024 
1190  IF  P(l)  R3  THEN  R3=P ( I > 

1200  NEXT  1 

1  2 1  0  R  3  =  i  R  3  -  R )  *  R  4  .1)  K  =  0 

1220  IF  N# 1  THEN  1360 

1230  R6=0  3  FOR  1=1  TO  11 

1240  ENTER  810  USING  "#,W"  ;  R5 

1250  R6=R5+R6  3  NEXT  I  3  R6=R6/U  +  100 

1260  FOR  1=12  TO  1013  STEP  11 

1270  ENTER  810  USING  1150  ;  0(1)  ,  CM  2 )  .0(3)  ,0(4)  ,  (2  < 5 >  ,0(6)  ,0(7)  ,  Q  <  8  > 
0(9)  ,0(  l(>)  ,Q(U) 

1280  IF  k  0  THEN  1320 
1290  FOR  >1=1  TO  11 

1300  IF  Q(J)  >R6  THEN  P  (  I +J-1  )  =200+R  .5)  K=K  +  1  3  T(K)=I+J-1 
1310  NEXT  J 
1320  NEXT  I 

1330  R5=R3/ ( 10*R4> +R  3  FOR  I=T(l)+4  TO  1024 
1340  IF  P ( I ) >R5  THEN  T(2)=I  3  GOTO  1360 
1350  NEXT  I 

1360  IF  N  M  THEN  RETURN 
1370  CONTROL  8,4  ;  12+192 

1380  OUTPUT  810  USING  "W"  ;  228 
1390  RETURN 


Line  Number  Comments 

1030-1390  Data  gathering  routine  for  "BLANK" 

1260-1350  Examine  channel  2,  point -by-point .  Any  that  exceed  10%  of 
full-scale  (plus  offset)  are  transferred  as  a  20%  of  full- 
scale  signal  to  the  channel  1  data  already  acquired.  T(l)  is 
the  first  of  these.  T(2)  is  the  time  when  the  pressure  is  10% 
of  its  maximum.  T(2)-T(l)  is  the  usual  definition  of  ignition 
delay  time. 
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